home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / fb386 / graf / a07.bas < prev    next >
BASIC Source File  |  1993-11-30  |  1KB  |  35 lines
  1. 1000 'A07.BAS***************************************************T.K.MOSAKU
  2. 1010 SCREEN@ 0:WINDOW(0,0)-(640,480):CLS
  3. 1020 L=300:PI=3.14159!
  4. 1030 '
  5. 1040 HANKEI1=50:XTI1=0:HANKEI2=HANKEI1:XTI2=XTI1:C=2
  6. 1050 A$="☆☆☆ 円の接線方向の直線を書き重ねています｡ ☆☆☆"
  7. 1060 AA$="円  の  接  線"
  8. 1070 CC=LEN(A$):D=(80-CC)\2:LOCATE 0,23:PRINT SPACE$(D)+A$
  9. 1080 AC=LEN(AA$):AD=(80-AC)\2:LOCATE 0,22:PRINT SPACE$(AD)+AA$
  10. 1090 T1=TIME:S=0 
  11. 1100 FOR T=0 TO 5
  12. 1110   FOR J=0 TO 360 STEP 10
  13. 1120     I=0
  14. 1130     GOSUB *CALK
  15. 1140     POINT (X,Y)
  16. 1150       FOR I=0 TO 360 STEP 120
  17. 1160         GOSUB *CALK
  18. 1170         LINE -(X,Y),PSET,C
  19. 1180       NEXT I
  20. 1190     S=S+1
  21. 1200   NEXT J
  22. 1210   HANKEI1=HANKEI1+50:XTI1=XTI1+50:HANKEI2=HANKEI1:XTI2=XTI1:C=C+1
  23. 1220 NEXT T
  24. 1230 T2=TIME:T=T2-T1:LOCATE 2,1:PRINT "描き上げる時間--";T;"秒  描いた曲線の数--";S;"本" 
  25. 1240 WAIT 150:GOTO 1330
  26. 1250 '
  27. 1260 *CALK
  28. 1270  P =I/180*PI
  29. 1280  PP=J/180*PI
  30. 1290  A=400+HANKEI*COS(P)+L
  31. 1300  X=330+(XTI1*COS(PP)-HANKEI1*SIN(P)*SIN(PP))*L/A
  32. 1310  Y=230-(HANKEI2*SIN(P)*COS(PP)+XTI2*SIN(PP))*L/A
  33. 1320 RETURN
  34. 1330 '
  35.